home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / MorphOS / Epic4_mos / share / epic / script / dcc_timeout < prev    next >
Encoding:
Text File  |  2002-10-28  |  465 b   |  26 lines
  1. @ dcc.inbound.threshhold = 0
  2. @ dcc.outbound.threshhold = 0
  3.  
  4. on #-timer -333 * 
  5. {
  6.     ^stack push on dcc_list
  7.  
  8.     ^on dcc_list * #
  9.     if (dcc.inbound.threshold) {
  10.         ^on -dcc_list "* * * Offered *" {
  11.             if (time() - [$4] > dcc.inbound.threshhold) 
  12.                 { dcc close $0 $2 }
  13.         }
  14.     }
  15.     if (dcc.outbound.threshold) {
  16.         ^on -dcc_list "* * * Waiting *" {
  17.             if (time() - [$4] > dcc.outbound.threshhold) 
  18.                 { dcc close $0 $2 }
  19.         }
  20.     }
  21.     ^//dcc list
  22.  
  23.     ^stack pop on dcc_list
  24. }
  25. #hop'98
  26.